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RAR AAA 
AAA AAA 
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' ident ‘v04-000" 


4 
ls 
eee eeeee eee ee eeeeeeeeeReeeeeeeeeeeeteeeneeeeteeeeeeeeeeererevereeeeeeeeTetee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


tt ALL RIGHTS RESERVED. 


'* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 3 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


* 
® 
* 
* 
* 
® 
aa 
® 
® 
t* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
t® TRANSFERRED. * 
4 * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
‘* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 

+ 

® 

& 

® 

e 

* 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VORP eR RHEE RHEE RETERAEAAAEARAAAEEREEREEEE RARER RREAATEHRREKeEKeKeeeeeeeeeeeeee 
' 


v03-003 PCA1012 Paul C. Anagnostopoulos 6-Apr-1983 
Add symbols for various new messages. 


‘oe 

Facility: VAX/VMS Analyze Command, BLISS Require File for /RMS_FILE 
i Abstract: This is the BLISS require file for the ANALYZE/RMS_FILE 
: facility. It includes various useful constructs and the 
: definitions of all control blocks used by the facility. 
! 

Environment: 

Author: Paul C. Anagnostopoulos, Creation Date: 12 February 1981 

; Modified By: 

: V03-006 DGB0044 Donald G. Blair a ne he 

: Add “‘severity_level’’ macro as par a 

: condition handling code which BTiews .N LYZRMS 

: to return the correct condition value in RO. 

: v03-005 RRBOO002 Rowland R. Bradle 13-Dec-1983 

: Add support for the display of journal ing information. 

‘ v03-004 PCA1019 [ t. wr rete TE 2earek toe 

; Remove messages oe READ_CHECK and WRITE_CHECK FDL 

: secondaries, as they havé always been bogus. 

1 


v03-002 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 


BeBe Pe Oe ee Be Be Be Se Se Be Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ae 


| 1 
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Change the message prefix to ANLRMS$_ to ensure that 
message symbols are unique across alT ANALYZEs. Thi 
is necessitated by the new merged message files. 


v03=001 PCA1007 Paul C. Anagnostopoulos 10 Feb 1983 
Add a couple of message symbols. 
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Here we will define ‘extensions’ to the BLISS Language. 


re te 


First we need values for boolean variables. 
Literal 

alse = 
true = 
| Define structure type for VMS structures 


structure 
bblock Co.p.s.e:n) = 
n 


(bblock+o)<p,s,e>; 


: Now we will define macros to generate various things associated with 
! string descriptors. 


'field descriptor_fields = set 
len = (0,0,16,0), 
ptr = (4,0,32,0] 


tes; 


macro Soper piar = , : 
block(8,byte] field(descriptor_fields) %; 


macro describe[] = 2 \ he 
uplit long(%charcount (Zremaining), uplit byte(%remaining)) %; 


macro build dence igsor (name. Lon th,address) = 
(name(0,0,32,0] = Length; 
name(ptr] = address;) 


: Now we define two macros that can generate descripted buffers. The 
: first is for OWN buffers and the second for LOCAL buffers. Note that 
: the local buffer must be defined Last in the declarations. 


macro own_described Re enone saneene = . . 
name: block[8+length, byte] field(descriptor_fields) 
. initial (Length, name+8) 


macro lucal_described_buffer(name,length) = ; 

| name: block (83 Length byte] field(descriptor_fields); 
name(0,0,32,0) = length; 

name(ptri = name+8 


i; 
! Now we define macros to increment and decrement a variable. 


/macro increment (var) = 
(var = .var + 1) %, 
decrement (var) = 


| 
| 
| (var = .var = 1) &; 
j 


<m 
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! We need an ‘infinite’ loop contruct. We also need a more elegant construct 
! for terminating a Loop. 


macro | = 
| “white 1 do %; 


macro exitif() = 
if Zremaining then exitloop %; 


i! Define a macro that can check statuses from routines. 
“macro check(status)L) = 
(if mot status then — 

signal (Zremaining);) 


oe 
ad 


: Macro to implement a function (f) of the yest severity level that 

: maps the various Sever sty levels such that arithmetic comparisions of the 
: mapped values ( f(severity) ) yield a order of precedence that is 

! intuivitvely acceptable: 


ERROR NAME OLDVAL NEWVAL 


F (SUCCESS) 1 ==> 9 
FCINFORMATIONAL) 3 ==> 2 
F (WARNING) 0 --> 3 
F (ERROR) ee 
F(SEVERE_ERROR) 4 ==> 7 


/macro 
sever tT level (tmp_status) = 
BEGIN 


LOCAL tmp_code: BBLOCK CLONG); 


tmp_code = tmp_status; 
gine _code Csts$v_severity] - (4 * .tmp_code [sts$v_success]) + 3 


! Define Literals for useful control characters. 


eon 
bell = Zx'07°, 
backspace = %x'08', 
tab = %x'09', 
Linefeed = %x'0a', 
formfeed = &x'Oc', 
creturn = Ix'0Od', 
ctrl_u = Zx'15', 
ctrl iw = &x'17', 
ctrli2z = Ix'la', 
escape = Zx'1b' 
delete = Zx‘°7f* 
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: The following Literals identify the various modes we can be in. 
: Some routines require knowledge of the mode in order to operate correctly. 


Literal 


anl$k_check = 1, ! ANALYZE/RMS_FILE/CHECK 
an($k_fdl = ¢: ! ANALYZE/RMS_FILE/FOL 
anl$k_interactive = 3, : ANALYZE/RMS_FILE/INTERACTIVE 
anl$k_statistics = 4, ! ANALYZE/RMS_“FILE/STATISTICS 
an $k_ summary = 5; ! ANALYZE/RMS_FILE/SUMMARY 
! The following macro is used by the low-level structure anol yeis routines 
: to call the statistics callback routines. See module RMSSTATS. 


‘Macro statistics_calliback() = 
-anl Sip node eqlu anl$Sk_fdl or .anl$gb_mode eqlu ani$k_statistics then ( 
. remaining 

1: 

{The following data structure is called a Bucket Structure Descriptor. 
|! It contains all the information necessary to identify a particular 

|! data structure within a bucket. 


‘field bsd_fields = set 
bsd$w_type 


= € 0,0,16.0), ! Type of structure (used in RMSINTER 
: module). 
| bsd$w_size = 2-8-16.0). ! Size of bucket in blocks. 
bsd$l_vbn = { 4,0,32.0]. ! VBN of bucket. : 
bsd$l_offset F 8-8-8 0], ! Offset of structure within bucket. 
bsd$l_bufptr = (12,0,32,0], ! Address of bucket buffer. 
| psdst endptr = (16,0,3 8). : Address of byte past end of buffer. 
bsd$i_wor = (20,0,32.0 : Work lLongword. Used to spec ity 
! additional context vis-a-vis the 
! structure. 
tes; 
Literal : F 
bsd$c_size = 24; ! Size of a BSD. 


[macro bsd = block(bsd$c_size, byte] field(bsd_fields) %; 

i. The following macro initializes a new BSD. 

macro init _bsd(b) = 

» chSfill(2x'00", bsd$c_size,b) 

. The following macro will copy a bucket by building a matching BSD and 
_; then reading the bucket. If the “‘to’’ BSD (which must at least be 

_! initialized) describes a previous bucket, ANLSBUCKET will free it up. 
“macro copy bucket(from_bsd,to_bsd) = 

| ( tnd 


f = from_bsd: bsd, 
t = to_bsd: bsd; 


t(dsd$w_type] = .flbsd$w_type); 


SSS esses 
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i 


dBt-vons =. = itosastes sized: 


as <otfs t] foaatt offset); 
wor rki _attbsé work); 
Rett, 


1 
16-SEP-1984 16:47:38.42 Page 6 


a<m 


8 
RMSREQ.REQ; 1 16-SEP-1984 16:47:30.42 Page 7 


! Include the definitions of all the ridiculous message status codes. 


external reer . 
° 


anirms$_ 
anirms$_alloc 
anirms$_anything, 
anirms$_backup, 
anirms$_bkt, 
anirms$_bktarea, 
anirms$_bktcheck, 
anirms$_bktflags, 
anirms$_bktfree, 
anirms$_bktkey, 
anirms$_bktlevel, 
anirms$_bktnext 
anirms$_bktptrsize, 
anirms$_bktrecid 
anirms$_bktrec ids, 
anirms$_bktsample, 
anirms$_bktvbnfree, 
anirms$_bucketsize, 
anirms$_cell, 
anirms$_celidata, 
anirms$_cellflags, 
anirms$_checkhdg, 
anirms$_contig, 
anirms$_creation, 
anirms$_ctlsize, 
anirms$_datarec, 
anirms$_databktvbn, 
anirms$_dumpheading, 
anirms$_eof, 
anirms$_errorcount, 
anirms$_errornone, 
anirms$_errors, 
anirms$_expiration, 
anirms$_fileattr, 
anirms$_filehdr, 
anirms$_fileid, 
anirms$_fileorg, 
anirms$_filespec, 

pot pee TOA pe 2 
anirms$_globalbufs, 
anirms$_hexdata, 
anitrms$_hexheading!, 
anirms$_hexheading2, 
anirms$_idxarea, 
antrms$_idxareaalloc, 
anirms$_idxareabktsz, 
anirms$_idxareanext 
anlrms$_idxareanoal loc, 
anirms$_idxareaqty 
anlrms$~idxarearec(, 
antrms$_idxareaused, 
anirms$_idxkey, 
anirms$_idxkeyareas, 
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anirms$_idxkeybktsz, 
pate pee Sh reds ( body 
anirms$_idxkey] ype, 
anirms$_idxkeydatavbn, 
anirms$_idxkeyfill, 
anirms$_idxkeyflags, 
anirms$_idxkeykeysz, 
anirms$_idxkeyname, 
anirms$_idxkeynext, 
anirms$_idxkeyminrec, 
anirms$_idxkeynull, 
anirms$_idxkeyposs 
anirms$_idxkeyroot(vl, 
anirms$_idxkeyrootvbn, 
antrms$_idxkeysegs, 
anirms$_idxkeysizes, 
ot pnw Wp mrec 
anirms ~idxprimrecflags, 
anirms$_idxprimrecid, 
anirms$_idxprimreclen, 
anirms$_idxprimrecrry, 
anirms$_idxproareas, 
anirms$_idxprolog, 
antrms$_idxrec, 
anirms$_idxrecptr, 
antrms$_idxsidr, 
anitrms$_idxsidrdupcnt, 
enpracd...[es0 iert lag ° 
anirms$_idxsidrrecid, 
anirms$_idxsidrptrflags, 
anirms$_idxsidrptrref, 
anirms$_intercommand, 
anirms$_interhdg, 
anirms$_longrec, 
antrms$_maxrecsize, 
anirms$_nobackup, | 
anirms$_noexpiration, 
anirms$_nospanfiller, 
antrms$_per form 
anirms$_prologf lags, 
anirms$_prologver, 
anirms$_prot, 
anirms$_recattr, 
anirms$_recfmt, 
anirms$_reclaimbkt, 
anirms$_relbucket, 
anirms$_releofvbn, 
anirms$_relmaxrec, 
anirms$_relprolog, 
anirms$_reliab, 
anirms$_revision, 
anirms$_stathdg, 
anirms$_summaryhdg, 
anirms$_owneruic, 
anirms$_jnt, 
anirms$_aijnl, 
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ar”m 
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anirms$_bijni, 
ontrast: _atjnt, 


anirms$ a 
anirms$_downpath, 
anirms$_ g-enatyent. 
anirms$_noda 
onirass: =nodown. 
anlrms ~nonex 
anirms$— “norecistiaed, 
anirms$_norecs, 
anirms$_norrv, 
anlrms$_restdone 
anirms$ “stackfull, 
anirms$_ “uninitindex, 
anirms$_fdlident, 
anirms$_fdlsystem, 
anirms$_fdlsource, 
anirms$_fdlfile, 
anirms$_fdlalloc, 
anirms$_fdinoalloc, 
anirms$_fdlbesttry 
anirms$— “ftdlbucketsize, 
anirms$_ 5g7 chun teretes. 
anirms$_fdicontig 
aniras$~ “tdlextension, 
anirms$_fdiglobalbufs, 
anirms$_fdlmaxrecord, 
antrms$_fdl filename, 
anirms$_fdlorg, 
anirms$_fdlowner, 
anirms$_fdiprotection, 
anirms$_fdlrecord, 
anirms$_fdlspan, 
anirms$_fdlcc, 
anirms$_ fdlvfcsize, 
anirms$_fdl format, 
anirms$_fdlsize, 
anirms$_fdlarea, 
anirms$_fdlkey, 
anirms$_fdichanges, 
anirms$_fdidataarea, 
anirms$_fdidatafill, 
aniras$— “ftdldatakeycompb, 


antras§_fdldatarecconpb, 
antrms$_fdldup 

oniras$-tdl indexarea, 

po att SEB eet 
anirms$_fdlindexfil 
anirms “ftdlllindexarea, 
anirms$_fdlkeyname, 
anirms$_fdlnorecs, 
anirms$_fdinullkey, 
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anirms$_fdinullvalue, 
anirms$_fdiprolog, 


anlrms$_badareabktsize. 


anirms$_badareafit, 
anirms$_badareaid, 


anlrms$_baddatarecfit, 
anirms$_baddatarecps, 
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oe 
3 
=~ 
ie | 
3 
w 
bad wun 
Ss 
a 
a 
“ 
—_ 
a 
7 
a 
c 
J 
o 
- 
. 


! We use a few of the pessape in the shareable message file SHRMSG. 
! Define status codes for these which include our facility code and 
! the message severity. 


literal 
anirms$_closein = shr$_closein + 177*65536 + sts$k_error, 
anirms$_closeout = shr$_closeout_+ 177*65556 + sts$k_error, 
anirms$_openin = shr$_openin + 17765536 + sts$k_error, 
anirms$_openout = shr$_openout + 17765536 + sts$K_severe, 
anirms$_readerr = shr$_readerr + 177*65536 + sts$k error, 
anirms$_writeerr = shr$_writeerr + 177*65536 + sts$k_severe; 
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